home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DDJMAG / DDJ9203.ZIP / OOPASM.ZIP / VMENU2.ASM < prev    next >
Assembly Source File  |  1990-07-22  |  1KB  |  73 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8.     UR    EQU    1            ;Upper row
  9.     LC    EQU    18            ;Left column
  10.     LR    EQU    6            ;Lower row
  11.     RC    EQU    30            ;Right column
  12.     MR    EQU    UR-1            ;Mouse row
  13.  
  14. IF1
  15.     INCLUDE    macros.mac
  16.     INCLUDE    objects.mac
  17. ENDIF
  18.  
  19.     EXTRN    Hardware:WORD
  20.     EXTRN    MenuBar:WORD
  21.     EXTRN    Self:WORD
  22.     EXTRN    System:WORD
  23.     EXTRN    VertMenu:WORD
  24.  
  25.     .CODE
  26.  
  27.     .DATA
  28.  
  29. defMenu    VertMenu2,<\
  30.     " Instances ",\
  31.     " Methods   ",\
  32.     " Messages  ",\
  33.     " Objects   ">
  34.  
  35. defMenuTbl    VertMenu2,\
  36.     <Self,Clear>,\
  37.     <Self,Clear>,\
  38.     <Self,Clear>,\
  39.     <Self,Clear>
  40.  
  41. defDispTbl    VertMenu2,\
  42.     <0,0,3,0,0,0,0,System,Reset>,\
  43.     <0,72,3,0,0,0,0,Self,Prev>,\
  44.     <0,80,3,0,0,0,0,Self,Next>,\
  45.     <13,28,0,MR,LC,LR,LC+12,Self,Select>,\
  46.     <0,Nil,1,MR,LC,LR,LC+12,Self,Drag>,\
  47.     <0,68,3,0,0,0,0,Self,Clear,System,Refresh,System,Read>,\
  48.     <0,75,1,MR,LC-9,MR,LC-1,Self,Clear,MenuBar,SelectPrev>,\
  49.     <0,77,1,MR,LC+6,MR,Nil,Self,Clear,MenuBar,SelectNext>,\
  50.     <27,1,0,0,0,24,79,Self,Clear>,\
  51.     <0,Nil,1,0,0,24,79,Self,DeHilite>,\
  52.     <Nil,Nil,Nil,0,0,24,79,Hardware,Refresh>
  53.  
  54. defObj    VertMenu2,\
  55.     <VertMenu>,\
  56.     <Row1,1,UR,\
  57.     Col1,1,LC,\
  58.     Row2,1,LR,\
  59.     Col2,1,RC,\
  60.     Color,1,17h,\
  61.     Unused,1,Nil,\
  62.     TxtPtr,2,Nil,\
  63.     InxPtr,2,0,\
  64.     MasterObj,2,Nil,\
  65.     DispTbl,2,VertMenu2DispTbl,\
  66.     MenuPtr,2,VertMenu2Menu,\
  67.     MenuTbl,2,VertMenu2MenuTbl>,\
  68.     <Refresh,Read,Next,Prev,Select,Clear,Hilite,DeHilite,Drag>
  69.  
  70.  
  71.  
  72.     END
  73.